From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Mar 1993 21:18:31 +0000 (+0000)
Subject: (query-replace-map): Add `quit' bindings.  Delete default binding.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96977
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bc6312e108ae6fa8962f837103e8b4ae318543c1;p=emacs.git

(query-replace-map): Add `quit' bindings.  Delete default binding.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 3c1789eb254..3f730ec3f2f 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -384,9 +384,8 @@ The valid answers include `act', `skip', `act-and-show',
 (define-key query-replace-map "^" 'backup)
 (define-key query-replace-map "\C-h" 'help)
 (define-key query-replace-map "?" 'help)
-;; Cause all other types of events to be unread immediately,
-;; without regard to the global map.
-(define-key query-replace-map [t] 'ignore)
+(define-key query-replace-map "\C-g" 'quit)
+(define-key query-replace-map "\C-]" 'quit)
 
 (defun perform-replace (from-string replacements
 		        query-flag regexp-flag delimited-flag